#!/usr/bin/perl -w

# remove_perltestnumbers
# File ID: 3200faa6-5d43-11df-81ae-90e6ba3022ac

while (<>) {
    s/^((not )?ok)( \d+ )- /$1 - /;
    print;
}
